
 1000  *SAVE S.USR WEEK FUNCTION
 1010  *--------------------------------
 1020  *      USR (X) = PEEK(X)+256*PEEK(X+1)
 1030  *--------------------------------
 1040         .OR $300     OR WHEREVER YOU WISH
 1050  *--------------------------------
 1060  USR    LDA $9D      CHECK RANGE
 1070         CMP #$91
 1080         BCS .1       ERROR
 1090         JSR $EBF2    CONVERT TO INTEGER IN $A0,A1
 1100         LDA $A0      PUT HIGH BYTE AFTER LOW BYTE
 1110         STA $A2
 1120         LDY #1
 1130         LDA ($A1),Y  HIGH-ORDER BYTE
 1140         STA $9E      HIGH BYTE OF MANTISSA
 1150         DEY
 1160         LDA ($A1),Y  LOW-ORDER BYTE
 1170         STA $9F      NEXT BYTE OF MANTISSA
 1180         SEC          SIGN IS POSITIVE
 1190         LDX #$90     EXPONENT 2^16
 1200         JMP $EBA0    FINISH CONVERSION
 1210  .1     JMP $E199    "ILLEGAL QUANTITY" MESSAGE
 1220  *--------------------------------

